home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh78a.d64 / get printer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  2.1 KB  |  133 lines
  1. 100 GOTO 190
  2. 110 :
  3. 120 N$="GET PRINTER"
  4. 130 OPEN 1,8,15,"S:"+N$+".BAK": CLOSE 1
  5. 140 OPEN 1,8,15,"R:"+N$+".BAK="+N$+".BAS": CLOSE 1
  6. 150 SAVE N$+".BAS",8
  7. 160 VERIFY N$+".BAS",8
  8. 170 END
  9. 180 :
  10. 190 READ D1%,D2%
  11. 200 IN$=""
  12. 210 READ A: IF A>0 THEN IN$=IN$+CHR$(A): GOTO 210
  13. 220 READ DX%,DY%,DL%,DR%,DO%,DU%
  14. 230 CT=52224
  15. 240 FOR I=0 TO 255: POKE CT+I,I: NEXT I
  16. 250 READ A$,A: IF A>0 THEN POKE CT+ASC(A$),A: GOTO 250
  17. 260 :
  18. 270 PRINT"[147][196]RUCKERTREIBER '[208][210][201][206][212][197][210][195][207][196][197][211]' WIRD"
  19. 280 PRINT"GESPEICHERT...":N$="PRINTERCODES"
  20. 290 OPEN 2,8,15,("S:"+N$): CLOSE 2
  21. 300 OPEN 2,8,2,(N$+",P,W")
  22. 310 PRINT#2,CHR$(D1%);CHR$(D2%);
  23. 320 PRINT#2,CHR$(LEN(IN$));:   I%=0
  24. 330 IF I%=LEN(IN$) THEN 350
  25. 340 I%=I%+1: PRINT#2,MID$(IN$,I%,1);: GOTO 330
  26. 350 PRINT#2,CHR$(DX%);CHR$(DY%);CHR$(DL%);CHR$(DR%);CHR$(DO%);CHR$(DU%);
  27. 360 FOR I=0 TO 255
  28. 370 : PRINT#2,CHR$(PEEK(CT+I));
  29. 380 NEXT I
  30. 390 CLOSE 2: END
  31. 400 :
  32. 410 DATA 4,7: REM GERAET, SEKUNDAERADR.
  33. 420 DATA 13,13,13,-1: REM SCHRIFTART
  34. 430 DATA  80: REM SPALTEN
  35. 440 DATA  72: REM ZEILEN (0=ENDLOS)
  36. 450 :
  37. 460 DATA  10: REM LINKER RAND
  38. 470 DATA  10: REM RECHER RAND
  39. 480 DATA   0: REM OBERER RAND
  40. 490 DATA   0: REM UNTERER RAND
  41. 500 :
  42. 510 DATA "A", 65
  43. 520 DATA "B", 66
  44. 530 DATA "C", 67
  45. 540 DATA "D", 68
  46. 550 DATA "E", 69
  47. 560 DATA "F", 70
  48. 570 DATA "G", 71
  49. 580 DATA "H", 72
  50. 590 DATA "I", 73
  51. 600 DATA "J", 74
  52. 610 DATA "K", 75
  53. 620 DATA "L", 76
  54. 630 DATA "M", 77
  55. 640 DATA "N", 78
  56. 650 DATA "O", 79
  57. 660 DATA "P", 80
  58. 670 DATA "Q", 81
  59. 680 DATA "R", 82
  60. 690 DATA "S", 83
  61. 700 DATA "T", 84
  62. 710 DATA "U", 85
  63. 720 DATA "V", 86
  64. 730 DATA "W", 87
  65. 740 DATA "X", 88
  66. 750 DATA "Y", 89
  67. 760 DATA "Z", 90
  68. 770 :
  69. 780 DATA "[193]",193
  70. 790 DATA "[194]",194
  71. 800 DATA "[195]",195
  72. 810 DATA "[196]",196
  73. 820 DATA "[197]",197
  74. 830 DATA "[198]",198
  75. 840 DATA "[199]",199
  76. 850 DATA "[200]",200
  77. 860 DATA "[201]",201
  78. 870 DATA "[202]",202
  79. 880 DATA "[203]",203
  80. 890 DATA "[204]",204
  81. 900 DATA "[205]",205
  82. 910 DATA "[206]",206
  83. 920 DATA "[207]",207
  84. 930 DATA "[208]",208
  85. 940 DATA "[209]",209
  86. 950 DATA "[210]",210
  87. 960 DATA "[211]",211
  88. 970 DATA "[212]",212
  89. 980 DATA "[213]",213
  90. 990 DATA "[214]",214
  91. 1000 DATA "[215]",215
  92. 1010 DATA "[216]",216
  93. 1020 DATA "[217]",217
  94. 1030 DATA "[218]",218
  95. 1040 :
  96. 1050 DATA "0", 48
  97. 1060 DATA "1", 49
  98. 1070 DATA "2", 50
  99. 1080 DATA "3", 51
  100. 1090 DATA "4", 52
  101. 1100 DATA "5", 53
  102. 1110 DATA "6", 54
  103. 1120 DATA "7", 55
  104. 1130 DATA "8", 56
  105. 1140 DATA "9", 57
  106. 1150 :
  107. 1160 DATA " ", 32
  108. 1170 DATA "#", 35
  109. 1180 DATA "(", 40
  110. 1190 DATA ")", 41
  111. 1200 DATA "+", 43
  112. 1210 DATA ",", 44
  113. 1220 DATA "-", 45
  114. 1230 DATA ".", 46
  115. 1240 DATA ":", 58
  116. 1250 DATA "<", 60
  117. 1260 DATA "=", 61
  118. 1270 DATA ">", 62
  119. 1280 DATA "?", 63
  120. 1290 :
  121. 1300 DATA "[192]",192
  122. 1310 DATA "[221]",221
  123. 1320 DATA "[176]",176
  124. 1330 DATA "[174]",174
  125. 1340 DATA "[189]",189
  126. 1350 DATA "[173]",173
  127. 1360 DATA "[178]",178
  128. 1370 DATA "[179]",179
  129. 1380 DATA "[177]",177
  130. 1390 DATA "[171]",171
  131. 1400 :
  132. 1410 DATA "ENDE",-1
  133.